10 REM       *** DFT1.0 - GENERATE SQUARE WAVE  ***

12 INPUT "NUMBER OF TERMS"; N

20 PI = 3.14159265358#

30 FOR I = 0 TO 2 * PI STEP PI / 8

32 Y = 0

40 FOR J = 1 TO N STEP 2: Y = Y + SIN(J * I) / J: NEXT

50 PRINT Y

60 NEXT I

70 END



